home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / E-Mail Address / background_2810.txt < prev    next >
Text File  |  1988-02-19  |  10KB  |  425 lines
  1. -- background: 2810 from stack: in
  2. -- bmap block id: 3206
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Main Background
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   show message box
  9. end openBackground
  10.  
  11.  
  12.  
  13. -- part 3 (button)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=17 top=243 right=288 bottom=61
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 20186 / 20186
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Sort
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   if the optionKey is down then
  28.     answer "This button will sort the cards in the stack." with "OK"
  29.     pass mouseUp
  30.     exit mouseUp
  31.   end if
  32.   answer "Sort all cards of this stack according to:" with "Last Name" or "First Name" or "Cancel"
  33.   if it is "First Name" then
  34.     set the lockScreen to true
  35.     sort by field "First"
  36.     go to first card of bkgnd "Main Background"
  37.   else if it is "Last Name" then
  38.     set the lockScreen to true
  39.     sort by field "Last"
  40.     go to first card of bkgnd "Main Background"
  41.   end if
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 5 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=16 top=117 right=156 bottom=60
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 17481 / 17481
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Address
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   if the optionKey is down then
  61.     answer "This button takes you to the Address stack." with "OK"
  62.     pass mouseUp
  63.     exit mouseUp
  64.   end if
  65.   get the selection
  66.   visual effect iris open
  67.   go to "Address"
  68.   if it is not empty then find it
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 7 (button)
  74. -- low flags: 00
  75. -- high flags: 0000
  76. -- rect: left=17 top=28 right=66 bottom=61
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 1011 / 1011
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Home
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   if the optionKey is down then
  88.     answer "This button takes you to the Home stack." with "OK"
  89.     pass mouseUp
  90.     exit mouseUp
  91.   end if
  92.   visual effect iris open
  93.   go home
  94. end mouseUp
  95.  
  96.  
  97.  
  98.  
  99. -- part 8 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=19 top=162 right=197 bottom=58
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 20965 / 20965
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: To Do
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   if the optionKey is down then
  114.     answer "This button takes you to the To Do stack." with "OK"
  115.     pass mouseUp
  116.     exit mouseUp
  117.   end if
  118.   visual effect iris open
  119.   go to card "First Do" of "Datebook"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 9 (button)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=19 top=75 right=110 bottom=58
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 21209 / 21209
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Daily
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   if the optionKey is down then
  139.     answer "This button takes you to the Daily stack." with "OK"
  140.     pass mouseUp
  141.     exit mouseUp
  142.   end if
  143.   set lockScreen to true
  144.   go stack "DateBook"
  145.   goWeekly the seconds
  146.   set lockScreen to false
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 10 (button)
  152. -- low flags: 00
  153. -- high flags: 0000
  154. -- rect: left=435 top=46 right=71 bottom=461
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 19678 / 19678
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Tell Me About...
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   if the optionKey is down then
  166.     answer "This button takes you to the About card." with "OK"
  167.     pass mouseUp
  168.     exit mouseUp
  169.   end if
  170.   hide message box
  171.   visual effect scroll right
  172.   push card
  173.   go to card "Info"
  174. end mouseUp
  175.  
  176.  
  177. -- part 11 (button)
  178. -- low flags: 00
  179. -- high flags: 0000
  180. -- rect: left=115 top=44 right=73 bottom=143
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 26635 / 26635
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Help
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   if the optionKey is down then
  192.     answer "This button takes you to the Help card." with "OK"
  193.     pass mouseUp
  194.     exit mouseUp
  195.   end if
  196.   hide message box
  197.   visual effect scroll right
  198.   push card
  199.   go to card "Help"
  200. end mouseUp
  201.  
  202.  
  203. -- part 12 (button)
  204. -- low flags: 00
  205. -- high flags: 0000
  206. -- rect: left=84 top=241 right=269 bottom=122
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 30557 / 30557
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: First
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   if the optionKey is down then
  218.     answer "This button takes you to the first card." with "OK"
  219.     pass mouseUp
  220.     exit mouseUp
  221.   end if
  222.   go to first card in this background
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 14 (button)
  228. -- low flags: 00
  229. -- high flags: 0000
  230. -- rect: left=307 top=241 right=269 bottom=343
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 1013 / 1013
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Next
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   if the optionKey is down then
  242.     answer "This button takes you to the next card." with "OK"
  243.     pass mouseUp
  244.     exit mouseUp
  245.   end if
  246.   go to next card in this background
  247. end mouseUp
  248.  
  249.  
  250. -- part 15 (button)
  251. -- low flags: 00
  252. -- high flags: 0000
  253. -- rect: left=227 top=242 right=268 bottom=260
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 1014 / 1014
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: Prev
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.   if the optionKey is down then
  265.     answer "This button takes you to the previous card." with "OK"
  266.     pass mouseUp
  267.     exit mouseUp
  268.   end if
  269.   go to previous card in this background
  270. end mouseUp
  271.  
  272.  
  273. -- part 16 (button)
  274. -- low flags: 00
  275. -- high flags: 0000
  276. -- rect: left=449 top=241 right=269 bottom=486
  277. -- title width / last selected line: 0
  278. -- icon id / first selected line: 26865 / 26865
  279. -- text alignment: 1
  280. -- font id: 0
  281. -- text size: 12
  282. -- style flags: 0
  283. -- line height: 16
  284. -- part name: Last
  285. ----- HyperTalk script -----
  286. on mouseUp
  287.   if the optionKey is down then
  288.     answer "This button takes you to the last card." with "OK"
  289.     pass mouseUp
  290.     exit mouseUp
  291.   end if
  292.   go to last card in this background
  293. end mouseUp
  294.  
  295.  
  296.  
  297. -- part 17 (field)
  298. -- low flags: 00
  299. -- high flags: 4000
  300. -- rect: left=163 top=90 right=108 bottom=449
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 3
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: Last
  309.  
  310.  
  311. -- part 18 (field)
  312. -- low flags: 00
  313. -- high flags: 4000
  314. -- rect: left=163 top=121 right=139 bottom=449
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 0
  318. -- font id: 3
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: First
  323.  
  324.  
  325. -- part 19 (field)
  326. -- low flags: 00
  327. -- high flags: 4000
  328. -- rect: left=178 top=153 right=171 bottom=328
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 0
  332. -- font id: 3
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Address
  337.  
  338.  
  339. -- part 20 (field)
  340. -- low flags: 00
  341. -- high flags: 4000
  342. -- rect: left=390 top=153 right=171 bottom=486
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 0
  346. -- font id: 3
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: Network
  351.  
  352.  
  353. -- part 21 (field)
  354. -- low flags: 00
  355. -- high flags: 4000
  356. -- rect: left=138 top=184 right=234 bottom=467
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 0
  360. -- font id: 3
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: Other
  365.  
  366.  
  367. -- part 22 (button)
  368. -- low flags: 00
  369. -- high flags: 0000
  370. -- rect: left=18 top=204 right=239 bottom=60
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: Terminal
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.   if the optionKey is down then
  382.     answer "This button can take you to a terminal stack." with "OK"
  383.     pass mouseUp
  384.     exit mouseUp
  385.   end if
  386.   --*******************************************************************
  387.   --If you are so inclined, delete the stuff between the stars
  388.   --and enter your own "go" or "open" command or whatever you see fit
  389.   --so that you can go to the terminal stack/program of your choice.
  390.   --If this confuses you, you shouldn't be here. Please press the
  391.   --"Cancel" button below.
  392.   answer "Edit this script to link to terminal program." with "Script" or "Cancel"
  393.   if it is "Script" then
  394.     edit script of background button "Terminal"
  395.     exit mouseUp
  396.   end if
  397.   --*******************************************************************
  398. end mouseUp
  399.  
  400.  
  401.  
  402. -- part 23 (button)
  403. -- low flags: 00
  404. -- high flags: 0000
  405. -- rect: left=266 top=242 right=268 bottom=301
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 1
  409. -- font id: 0
  410. -- text size: 12
  411. -- style flags: 0
  412. -- line height: 16
  413. -- part name: New Card
  414. ----- HyperTalk script -----
  415. on mouseUp
  416.   if the optionKey is down then
  417.     answer "This button adds a new card to the stack." with "OK"
  418.     pass mouseUp
  419.     exit mouseUp
  420.   end if
  421.   doMenu New Card
  422.   tabKey
  423. end mouseUp
  424.  
  425.